COMMENT ⊗   VALID 00005 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002
C00003 00003
C00004 00004
C00005 00005
C00006 ENDMK
C⊗;

'(THIS IS THE LAP FOR ((DSK (TIM LSP)) LOSS LSP)) 
'(COMPILED BY LISP COMPILER /936 COMAUX /25 PHAS1 /84 MAKLAP /80 INITIA /117) 

;COMPILED ON JULY 11, 1983, AT 5:34 PM

(LAP FOO SUBR) 
(ARGS FOO (()  . 1)) 
(PUSH P 1) 
(NCALL 1 'BAZ) 
(FADR 7 @ 0 P) 
(JSP T FLCONS) 
(SUB P (% 0 0 1 1)) 
(POPJ P) 
()  


(LAP ZTESCH SUBR) 
(ARGS ZTESCH (()  . 1)) 
(PUSH P 1) 
(NCALL 1 'BAR) 
(ADD 7 @ 0 P) 
(JSP T FXCONS) 
(SUB P (% 0 0 1 1)) 
(POPJ P) 
()  


(LAP BAZ SUBR) 
(ARGS BAZ (()  . 1)) 
(PUSH P (% 0 0 FLOAT1)) 
(MOVE 7 0 1) 
(FADR 7 7) 
(POPJ P) 
()  


(COMMENT ****  (BAR) have been used but remain undefined in this file)